home *** CD-ROM | disk | FTP | other *** search
/ Canadian Geographic Explorer / Canadian Geographic Explorer.iso / pc / riddler.dxr / 00051_Play Again Mouse Handler.ls < prev    next >
Encoding:
Text File  |  1996-10-03  |  599 b   |  22 lines
  1. on mouseUp
  2.   global gMusicChannel
  3.   set jButton to the clickOn
  4.   if the clickOn = 10 then
  5.     repeat while the volume of sound gMusicChannel > 0
  6.       set the volume of sound gMusicChannel to the volume of sound gMusicChannel - 16
  7.       updateStage()
  8.       LingoPause(5)
  9.     end repeat
  10.     sound stop gMusicChannel
  11.     go("Num Of Players")
  12.   else
  13.     repeat while the volume of sound gMusicChannel > 0
  14.       set the volume of sound gMusicChannel to the volume of sound gMusicChannel - 16
  15.       updateStage()
  16.       LingoPause(5)
  17.     end repeat
  18.     sound stop gMusicChannel
  19.     go("End")
  20.   end if
  21. end
  22.